home *** CD-ROM | disk | FTP | other *** search
- /* __________ DEFINE PROJECT __________ */
-
- @DefineProject
- @Name = "MASTERCAM"
- @Version = "6.1"
- @Subdir = "\\MILL6"
- @OutDrive = C
- @Immediate = @TRUE
- @InDiskBell = @TRUE
- @Requires @HardDisk
- @Group = "EKR"
- @EndProject
-
- /* __________ INSTALLATION GROUPS __________ */
-
- /* (E) Install OpenGL Dlls */
- /* (K) English units */
- /* (R) INCLUDE win32s files */
-
- /* __________ INITIALIZE VARIABLES _________ */
-
- @DefineVars
- @Qstring @IconTXT = "Mastercam Demo6"
- @Qstring @Product = "MASTERCAM DEMO"
- @Qstring @LowName = "demo6"
- @Qstring @CGroup = ""
- @Qstring @AppMItem = ""
- @Qstring @OpGLIco = ""
- @Integer @TempInt = -1
- @EndVars
-
- /* __________ DEFAULT NUMBER OF DISKS __________ */
-
- @NumberOfDisks = 9 /* (8-2) + (3 Win32s) */
-
- /* __________ CHECK WINDOWS VERSION __________ */
-
- @If (@WinMajor == 3 && @WinMinor >= 95) // Windows 95
- @NumberOfDisks = 6
- @ClearGroup(R)
- @EndIf
-
- @If (@WinMajor == 4) // Windows 95
- @NumberOfDisks = 6
- @ClearGroup(R)
- @EndIf
-
- @If ("@GetEnv("OS")" == "Windows_NT") // Windows NT
- @NumberOfDisks = 6
- @ClearGroup(R)
- @EndIf
-
- /* __________ SAY HELLO __________ */
-
- @Display
- @Cls
- This program will install @Product version @Version on your computer.
- You may press the [Esc] key at any time to abort the installation.
-
- Each question has a default answer. If the default answer is
- correct, press the [ENTER] key in response to the question.
- Otherwise, type the answer and then press the [ENTER] key.
-
- If you make a mistake while typing, press the [BACKSPACE] key
- and then retype the answer.
- @Pause
-
- @EndDisplay
-
- /* __________ GET DRIVE __________ */
-
- @GetOutDrive
- @Cls
- Select target drive for @Product ...
- @DlgCtrlSize(0,3,2,8,30)
- @Suppress(0,17)
- @EndOutDrive
-
- /* __________ GET DIRECTORY __________ */
-
- NEWDIR:
- @Subdir = "\\DEMO6"
- @GetSubdir
- @Cls
- Specify directory on target drive @OutDrive ...
- @DlgCtrlSize(0,3,2,4,30)
- @EndSubdir
-
- /* __________ REMOVE DRIVE - IF ENTERED __________ */
-
- @TempInt = @StrFind ("@SubDir", ":")
- @If (@TempInt >= 0)
- @SubDir = "@StrDel ("@SubDir", 0, (@TempInt+1))"
- @EndIf
-
- /* __________ REMOVE PERIOD - IF ENTERED __________ */
-
- @TempInt = @StrFind ("@SubDir", ".")
- @If (@TempInt >= 0)
- @Display
- MASTERCAM products do not support
- directories which contain periods.
-
- Please select another directory.
- @Pause
- @EndDisplay
- @GOTO NEWDIR
- @EndIf
-
- /* __________ VERIFY INFORMATION __________ */
-
- @Display
- @Cls
- Please verify installation information ...
-
- Product:
- @Product version @Version
-
- Destination:
- @OutDrive:@SubDir
- @Pause
- @EndDisplay
-
- /* __________ ASK FOR DEFAULT UNITS __________ */
-
- @GetOption
- @Cls
- Please select default units .....
- @DlgCtrlSize(0,3,2,5,12)
- @Option 100 = "English"
- @Option 200 = "Metric"
- @EndOption
-
- @If (200 [= @Option)
- @ClearGroup(K)
- @EndIf
-
- /* __________ CREATE ALL SUBDIRECTORIES __________ */
-
- @MkDir ("@OutDrive:\\@Subdir\\ASCII")
- @MkDir ("@OutDrive:\\@Subdir\\BMP")
- @MkDir ("@OutDrive:\\@Subdir\\CADL")
- @MkDir ("@OutDrive:\\@Subdir\\DWG")
- @MkDir ("@OutDrive:\\@Subdir\\DXF")
- @MkDir ("@OutDrive:\\@Subdir\\GE3")
- @MkDir ("@OutDrive:\\@Subdir\\GEO")
- @MkDir ("@OutDrive:\\@Subdir\\ICONS")
- @MkDir ("@OutDrive:\\@Subdir\\IGES")
- @MkDir ("@OutDrive:\\@Subdir\\MACROS")
- @MkDir ("@OutDrive:\\@Subdir\\MTOOLS")
- @MkDir ("@OutDrive:\\@Subdir\\NCI")
- @MkDir ("@OutDrive:\\@Subdir\\PIC")
- @MkDir ("@OutDrive:\\@Subdir\\PRM")
- @MkDir ("@OutDrive:\\@Subdir\\STL")
- @MkDir ("@OutDrive:\\@Subdir\\TEMP")
- @MkDir ("@OutDrive:\\@Subdir\\VDA")
- @MkDir ("@OutDrive:\\@Subdir\\WMF")
-
- /* __________ APPLICATION DISK #1 __________ */
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK1"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #1", "DISK1.DAT")
- @Else
- @Chain ("Disk #1", "@InDrive:\\disk1.dat")
- @EndIf
-
- /* __________ APPLICATION DISK #2 or #4 __________ */
-
- @If ('R' [! @Group) /* Windows 95 goto disk #2 */
- /* Windows NT goto disk #2 */
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK2"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #2", "DISK2.DAT")
- @Else
- @Chain ("Disk #2", "@InDrive:\\disk2.dat")
- @EndIf
-
- @Else /* Windows 31 goto disk #4 */
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK4"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #4", "DISK4.DAT")
- @Else
- @Chain ("Disk #4", "@InDrive:\\disk4.dat")
- @EndIf
-
- @EndIf
-
- /* __________ APPLICATION DISK #6 __________ */
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK6"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #6", "DISK6.DAT")
- @Else
- @Chain ("Disk #6", "@InDrive:\\disk6.dat")
- @EndIf
-
- /* __________ APPLICATION DISK #7 __________ */
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK7"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #7", "DISK7.DAT")
- @Else
- @Chain ("Disk #7", "@InDrive:\\disk7.dat")
- @EndIf
-
- /* __________ APPLICATION DISK #8 __________ */
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\DISK8"
- @ChDir ("@LocPrefix@LocMiddle@LocSuffix")
- @Chain ("Disk #8", "DISK8.DAT")
- @Else
- @Chain ("Disk #8", "@InDrive:\\disk8.dat")
- @EndIf
-
- /* __________ UPDATE MASTERCAM.INI __________ */
-
- @SetINI ("@LowName", "maindir", "@Outdrive:\\@Subdir", "mastrcam.ini")
- @If ('K' [= @Group)
- @SetINI ("@LowName", "units", "E", "mastrcam.ini")
- @Else
- @SetINI ("@LowName", "units", "M", "mastrcam.ini")
- @Endif
-
- /* __________ PROMPT FOR SHADING MODE (SAVE TO MASTERCAM.INI) __________ */
-
- @If ('R' [! @Group) /* 95 or NT */
-
- //@GetOption
- // @Cls
- // Please specify default shading mode .....
- // (see glreadme.txt for more info)
- //
- // @DlgCtrlSize(0,4,2,6,26)
- // @Option 100 = "OpenGL (recommended)"
- // @Option 200 = "v6.0"
- //@EndOption
-
- //@If (100 [= @Option)
- @SetINI ("common", "shading", "GL", "mastrcam.ini")
- //@Else
- // @SetINI ("common", "shading", "V6", "mastrcam.ini")
- //@EndIf
-
- //@OpGLIco = "[AddItem(NOTEPAD GLREADME.TXT,glreadme.txt,,,,,@Outdrive:\\@Subdir)]"
-
- @EndIf
-
- /* __________ CREATE MASTERCAM GROUP __________ */
-
- @CGroup = "[CreateGroup(Mastercam)]"
- @AppMItem = "[AddItem(@Outdrive:\\@Subdir\\DEMO6.EXE,@IconTXT,,,,,@Outdrive:\\@Subdir)]"
- @ProgramManager ("@CGroup@AppMItem@OpGLIco")
-
- /* __________ WIN32S DISK __________ */
-
- @If ('R' [= @Group)
-
- @If (5000 [= @OPTION)
- @ChDrive (@StartupDrive)
- @ChDir ("@StartupDir")
- @Endif
-
- @Display
- @Cls
- @Product installation complete ...
-
- Select OK to run Microsoft Win32s Setup.
- Select CANCEL to quit.
-
- Installation of Win32s is required to run Mastercam.
- Please select OK unless you are sure that the latest
- version of Win32s has already been installed (7/95).
-
- @Pause
- @EndDisplay
-
- @If (5000 [= @OPTION)
- @LocSuffix = "\\MILL\\WIN32S1"
- @ChDir ("@LocPrefix@LocSuffix")
- @Chain ("Win32s Disk #1", "WIN32S1.DAT")
- @Else
- @Chain ("Win32s Disk #1", "@InDrive:\\win32s1.dat")
- @EndIf
-
- @EndIf
-
- /* __________ RETURN TO STARTUP DIRECTORY __________ */
-
- @If (5000 [= @OPTION)
- @ChDrive (@StartupDrive)
- @ChDir ("@StartupDir")
- @EndIf
-
- /* __________ INSTALLATION COMPLETE __________ */
-
- @Finish
- @Cls
- @Product installation complete ...
- @Pause
- @EndFinish
-